home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Ap-Az / AudioVideoLib1.15.cpt / AudioVideo Library / background_8233.txt < prev    next >
Text File  |  1991-03-04  |  24KB  |  1,121 lines
  1. -- background: 8233 from stack: in
  2. -- bmap block id: 8516
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: LP
  6. ----- HyperTalk script -----
  7. on doCopyLP
  8.   global artistcopy,titlecopy,selcopy,Bselcopy,perfcopy,sourcecopy
  9.   put field "format" into sourcecopy
  10.   if the hilite of bkgnd button "Vol I" is true then copy1
  11.   if the hilite of bkgnd button "Vol II" is true then copy2
  12.   if the hilite of bkgnd button "Vol III" is true then copy3
  13.   answer "Destination of copied information?" with "cancel" or "volume" or "TAPE"
  14.   if it is "cancel" then exit doCopyLP
  15.   put it into reply
  16.   if reply is "volume" then
  17.     answer "Which volume or volumes?" with "volume II" or "volume III" or "vols II&III"
  18.     if it is "volume II" then toVol2
  19.     if it is "volume III" then toVol3
  20.     if it is "vols II&III" then
  21.       toVol2
  22.       toVol3
  23.     end if
  24.   end if
  25.   if reply is "TAPE" then
  26.     answer "How do you want the selections copied?" with "split A&B" or "combine A&B"
  27.     if it is "combine A&B" then
  28.       put empty into Bselcopy
  29.       if the hilite of bkgnd button "Vol I" is true
  30.       then put bkgnd field "IAsel" & bkgnd field "IBsel" into selcopy
  31.       if the hilite of bkgnd button "Vol II" is true
  32.       then put bkgnd field "IAsel" & bkgnd field "IBsel" into selcopy
  33.       if the hilite of bkgnd button "Vol III" is true
  34.       then put bkgnd field "IAsel" & bkgnd field "IBsel" into selcopy
  35.     end if
  36.     answer "Go to desired or make new TAPE card & paste"
  37.   end if
  38. end doCopyLP
  39.  
  40. on copy1
  41.   global artistcopy,titlecopy,perfcopy,selcopy,Bselcopy
  42.   put bkgnd field "artist" into artistcopy
  43.   put bkgnd field "title" into titlecopy
  44.   put bkgnd field "IAsel" into selcopy
  45.   put bkgnd field "IBsel" into Bselcopy
  46.   put bkgnd field "Iperf" into perfcopy
  47. end copy1
  48.  
  49. on copy2
  50.   global artistcopy,titlecopy,perfcopy,selcopy,Bselcopy
  51.   put bkgnd field "IIartist" into artistcopy
  52.   put bkgnd field "IItitle" into titlecopy
  53.   put bkgnd field "IIAsel" into selcopy
  54.   put bkgnd field "IIBsel" into Bselcopy
  55.   put bkgnd field "IIperf" into perfcopy
  56. end copy2
  57.  
  58. on copy3
  59.   global artistcopy,titlecopy,perfcopy,selcopy,Bselcopy
  60.   put bkgnd field "IIIartist" into artistcopy
  61.   put bkgnd field "IIItitle" into titlecopy
  62.   put bkgnd field "IIIAsel" into selcopy
  63.   put bkgnd field "IIIBsel" into Bselcopy
  64.   put bkgnd field "IIIperf" into perfcopy
  65. end copy3
  66.  
  67.  
  68.  
  69. on toVol2
  70.   global artistcopy,titlecopy,perfcopy
  71.   put artistcopy into bkgnd field "IIartist"
  72.   put titlecopy into bkgnd field "IItitle"
  73.   put perfcopy into bkgnd field "IIperf"
  74. end toVol2
  75.  
  76. on toVol3
  77.   global artistcopy,titlecopy,perfcopy
  78.   put artistcopy into bkgnd field "IIIartist"
  79.   put titlecopy into bkgnd field "IIItitle"
  80.   put perfcopy into bkgnd field "IIIperf"
  81. end toVol3
  82.  
  83.  
  84.  
  85. -- part 1 (field)
  86. -- low flags: 00
  87. -- high flags: 4007
  88. -- rect: left=0 top=140 right=282 bottom=207
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 0
  92. -- font id: 3
  93. -- text size: 10
  94. -- style flags: 0
  95. -- line height: 13
  96. -- part name: IAsel
  97.  
  98.  
  99. -- part 2 (field)
  100. -- low flags: 00
  101. -- high flags: 4007
  102. -- rect: left=208 top=140 right=282 bottom=414
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 0
  106. -- font id: 3
  107. -- text size: 10
  108. -- style flags: 0
  109. -- line height: 13
  110. -- part name: IBsel
  111.  
  112.  
  113. -- part 3 (field)
  114. -- low flags: 01
  115. -- high flags: 0002
  116. -- rect: left=283 top=41 right=56 bottom=405
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 1
  120. -- font id: 3
  121. -- text size: 10
  122. -- style flags: 0
  123. -- line height: 13
  124. -- part name: recording label
  125. ----- HyperTalk script -----
  126. on mouseDown
  127.   doRecLabel
  128. end mouseDown
  129.  
  130.  
  131. -- part 4 (field)
  132. -- low flags: 00
  133. -- high flags: 0002
  134. -- rect: left=9 top=40 right=55 bottom=271
  135. -- title width / last selected line: 0
  136. -- icon id / first selected line: 0 / 0
  137. -- text alignment: 1
  138. -- font id: 3
  139. -- text size: 10
  140. -- style flags: 256
  141. -- line height: 13
  142. -- part name: artist
  143. ----- HyperTalk script -----
  144. on returnInField
  145.   click at location of field "title"
  146. end returnInField
  147.  
  148.  
  149.  
  150. -- part 5 (field)
  151. -- low flags: 00
  152. -- high flags: 0002
  153. -- rect: left=9 top=68 right=83 bottom=271
  154. -- title width / last selected line: 0
  155. -- icon id / first selected line: 0 / 0
  156. -- text alignment: 1
  157. -- font id: 3
  158. -- text size: 10
  159. -- style flags: 0
  160. -- line height: 13
  161. -- part name: title
  162. ----- HyperTalk script -----
  163. on returnInField
  164.   click at 12,104
  165. end returnInField
  166.  
  167.  
  168. -- part 6 (field)
  169. -- low flags: 00
  170. -- high flags: 0002
  171. -- rect: left=9 top=97 right=126 bottom=271
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 0
  175. -- font id: 3
  176. -- text size: 10
  177. -- style flags: 0
  178. -- line height: 13
  179. -- part name: Iperf
  180.  
  181.  
  182. -- part 7 (field)
  183. -- low flags: 01
  184. -- high flags: 0002
  185. -- rect: left=380 top=59 right=73 bottom=405
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 1
  189. -- font id: 3
  190. -- text size: 10
  191. -- style flags: 256
  192. -- line height: 13
  193. -- part name: numVol
  194. ----- HyperTalk script -----
  195. on mouseDown
  196.   put "1;2;3" into choices
  197.  
  198.   put the value of 1 into lastItem
  199.   get topLeft of target
  200.  
  201.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  202.  
  203.   if the result is not empty then put the result
  204.  
  205.   if item 1 of it is not empty then
  206.     put item 1 of it into bkgnd fld "numVol"
  207.     if bkgnd fld "numVol" contains "1" then
  208.       setLP1
  209.     end if
  210.     if bkgnd fld "numVol" contains "2" then
  211.       if the hilite of bkgnd button "Vol III" is true then
  212.         setLP2
  213.       end if
  214.     end if
  215.   end if
  216. end mouseDown
  217.  
  218.  
  219. -- part 8 (button)
  220. -- low flags: 00
  221. -- high flags: 4006
  222. -- rect: left=306 top=77 right=89 bottom=380
  223. -- title width / last selected line: 0
  224. -- icon id / first selected line: 0 / 0
  225. -- text alignment: 1
  226. -- font id: 0
  227. -- text size: 12
  228. -- style flags: 0
  229. -- line height: 16
  230. -- part name: Vol I
  231. ----- HyperTalk script -----
  232. on mouseUp
  233.   setLP1
  234. end mouseUp
  235.  
  236.  
  237.  
  238. -- part 9 (button)
  239. -- low flags: 00
  240. -- high flags: 0006
  241. -- rect: left=306 top=94 right=106 bottom=380
  242. -- title width / last selected line: 0
  243. -- icon id / first selected line: 0 / 0
  244. -- text alignment: 1
  245. -- font id: 0
  246. -- text size: 12
  247. -- style flags: 0
  248. -- line height: 16
  249. -- part name: Vol II
  250. ----- HyperTalk script -----
  251. on mouseUp
  252.   setLP2
  253. end mouseUp
  254.  
  255.  
  256.  
  257. -- part 10 (button)
  258. -- low flags: 00
  259. -- high flags: 0006
  260. -- rect: left=306 top=110 right=124 bottom=380
  261. -- title width / last selected line: 0
  262. -- icon id / first selected line: 0 / 0
  263. -- text alignment: 1
  264. -- font id: 0
  265. -- text size: 12
  266. -- style flags: 0
  267. -- line height: 16
  268. -- part name: Vol III
  269. ----- HyperTalk script -----
  270. on mouseUp
  271.   if bkgnd field "numVol" contains "3" then
  272.     set the hilite of bkgnd button "Vol II" to false
  273.     set the hilite of bkgnd button "Vol I" to false
  274.     set the hilite of bkgnd button "Vol III" to true
  275.     hide bkgnd field "IAsel"
  276.     hide bkgnd field "title"
  277.     hide bkgnd field "Iperf"
  278.     hide bkgnd field "artist"
  279.     hide bkgnd field "IBsel"
  280.     hide bkgnd field "IIAsel"
  281.     hide bkgnd field "IItitle"
  282.     hide bkgnd field "IIartist"
  283.     hide bkgnd field "IIperf"
  284.     hide bkgnd field "IIBsel"
  285.     show bkgnd field "IIIAsel"
  286.     show bkgnd field "IIItitle"
  287.     show bkgnd field "IIIartist"
  288.     show bkgnd field "IIIperf"
  289.     show bkgnd field "IIIBsel"
  290.   else
  291.     set hilite of bkgnd button "Vol III" to false
  292.     hide bkgnd field "IIIAsel"
  293.     hide bkgnd field "IIIBsel"
  294.     hide bkgnd field "IIItitle"
  295.     hide bkgnd field "IIIperf"
  296.     hide bkgnd field "IIIartist"
  297.   end if
  298. end mouseUp
  299.  
  300.  
  301. -- part 13 (button)
  302. -- low flags: 00
  303. -- high flags: 0006
  304. -- rect: left=441 top=129 right=145 bottom=504
  305. -- title width / last selected line: 0
  306. -- icon id / first selected line: 0 / 0
  307. -- text alignment: 1
  308. -- font id: 0
  309. -- text size: 12
  310. -- style flags: 0
  311. -- line height: 16
  312. -- part name: Remarks
  313. ----- HyperTalk script -----
  314. on mouseUp
  315.   if the hilite of bkgnd button "Remarks" is false then
  316.     show bkgnd field "remarks"
  317.     set the hilite of bkgnd button "Remarks" to true
  318.   else
  319.     hide bkgnd field "remarks"
  320.     set the hilite of bkgnd button "Remarks" to false
  321.   end if
  322. end mouseUp
  323.  
  324.  
  325.  
  326. -- part 14 (field)
  327. -- low flags: 80
  328. -- high flags: 0002
  329. -- rect: left=9 top=40 right=55 bottom=271
  330. -- title width / last selected line: 0
  331. -- icon id / first selected line: 0 / 0
  332. -- text alignment: 1
  333. -- font id: 3
  334. -- text size: 10
  335. -- style flags: 256
  336. -- line height: 13
  337. -- part name: IIartist
  338. ----- HyperTalk script -----
  339. on returnInField
  340.   click at location of field "IItitle"
  341. end returnInField
  342.  
  343.  
  344. -- part 15 (field)
  345. -- low flags: 80
  346. -- high flags: 0002
  347. -- rect: left=9 top=68 right=83 bottom=271
  348. -- title width / last selected line: 0
  349. -- icon id / first selected line: 0 / 0
  350. -- text alignment: 1
  351. -- font id: 3
  352. -- text size: 10
  353. -- style flags: 0
  354. -- line height: 13
  355. -- part name: IItitle
  356. ----- HyperTalk script -----
  357. on returnInField
  358.   click at 12,104
  359. end returnInField
  360.  
  361.  
  362. -- part 16 (field)
  363. -- low flags: 80
  364. -- high flags: 0002
  365. -- rect: left=9 top=97 right=126 bottom=270
  366. -- title width / last selected line: 0
  367. -- icon id / first selected line: 0 / 0
  368. -- text alignment: 0
  369. -- font id: 3
  370. -- text size: 10
  371. -- style flags: 0
  372. -- line height: 13
  373. -- part name: IIperf
  374.  
  375.  
  376. -- part 17 (field)
  377. -- low flags: 80
  378. -- high flags: 4007
  379. -- rect: left=0 top=140 right=282 bottom=207
  380. -- title width / last selected line: 0
  381. -- icon id / first selected line: 0 / 0
  382. -- text alignment: 0
  383. -- font id: 3
  384. -- text size: 10
  385. -- style flags: 0
  386. -- line height: 13
  387. -- part name: IIAsel
  388.  
  389.  
  390. -- part 18 (field)
  391. -- low flags: 80
  392. -- high flags: 4007
  393. -- rect: left=208 top=140 right=282 bottom=414
  394. -- title width / last selected line: 0
  395. -- icon id / first selected line: 0 / 0
  396. -- text alignment: 0
  397. -- font id: 3
  398. -- text size: 10
  399. -- style flags: 0
  400. -- line height: 13
  401. -- part name: IIBsel
  402.  
  403.  
  404. -- part 19 (field)
  405. -- low flags: 80
  406. -- high flags: 0002
  407. -- rect: left=9 top=40 right=55 bottom=271
  408. -- title width / last selected line: 0
  409. -- icon id / first selected line: 0 / 0
  410. -- text alignment: 1
  411. -- font id: 3
  412. -- text size: 10
  413. -- style flags: 256
  414. -- line height: 13
  415. -- part name: IIIartist
  416. ----- HyperTalk script -----
  417. on returnInField
  418.   click at location of field "IIItitle"
  419. end returnInField
  420.  
  421.  
  422.  
  423. -- part 20 (field)
  424. -- low flags: 80
  425. -- high flags: 0002
  426. -- rect: left=9 top=68 right=83 bottom=271
  427. -- title width / last selected line: 0
  428. -- icon id / first selected line: 0 / 0
  429. -- text alignment: 1
  430. -- font id: 3
  431. -- text size: 10
  432. -- style flags: 0
  433. -- line height: 13
  434. -- part name: IIItitle
  435. ----- HyperTalk script -----
  436. on returnInField
  437.   click at 12,104
  438. end returnInField
  439.  
  440.  
  441. -- part 21 (field)
  442. -- low flags: 80
  443. -- high flags: 0002
  444. -- rect: left=9 top=97 right=126 bottom=270
  445. -- title width / last selected line: 0
  446. -- icon id / first selected line: 0 / 0
  447. -- text alignment: 0
  448. -- font id: 3
  449. -- text size: 10
  450. -- style flags: 0
  451. -- line height: 13
  452. -- part name: IIIperf
  453.  
  454.  
  455. -- part 22 (field)
  456. -- low flags: 80
  457. -- high flags: 4007
  458. -- rect: left=0 top=140 right=282 bottom=207
  459. -- title width / last selected line: 0
  460. -- icon id / first selected line: 0 / 0
  461. -- text alignment: 0
  462. -- font id: 3
  463. -- text size: 10
  464. -- style flags: 0
  465. -- line height: 13
  466. -- part name: IIIAsel
  467.  
  468.  
  469. -- part 23 (field)
  470. -- low flags: 80
  471. -- high flags: 4007
  472. -- rect: left=208 top=140 right=282 bottom=414
  473. -- title width / last selected line: 0
  474. -- icon id / first selected line: 0 / 0
  475. -- text alignment: 0
  476. -- font id: 3
  477. -- text size: 10
  478. -- style flags: 0
  479. -- line height: 13
  480. -- part name: IIIBsel
  481.  
  482.  
  483. -- part 24 (field)
  484. -- low flags: 01
  485. -- high flags: 0002
  486. -- rect: left=61 top=0 right=15 bottom=227
  487. -- title width / last selected line: 0
  488. -- icon id / first selected line: 0 / 0
  489. -- text alignment: 1
  490. -- font id: 3
  491. -- text size: 10
  492. -- style flags: 0
  493. -- line height: 13
  494. -- part name: content class
  495. ----- HyperTalk script -----
  496. on mouseDown
  497.   doContentClass
  498. end mouseDown
  499.  
  500.  
  501.  
  502. -- part 26 (field)
  503. -- low flags: 00
  504. -- high flags: 0002
  505. -- rect: left=432 top=0 right=15 bottom=512
  506. -- title width / last selected line: 0
  507. -- icon id / first selected line: 0 / 0
  508. -- text alignment: 1
  509. -- font id: 3
  510. -- text size: 10
  511. -- style flags: 0
  512. -- line height: 13
  513. -- part name: catalog number
  514.  
  515.  
  516. -- part 27 (field)
  517. -- low flags: 01
  518. -- high flags: 0002
  519. -- rect: left=307 top=0 right=15 bottom=389
  520. -- title width / last selected line: 0
  521. -- icon id / first selected line: 0 / 0
  522. -- text alignment: 1
  523. -- font id: 3
  524. -- text size: 10
  525. -- style flags: 0
  526. -- line height: 13
  527. -- part name: format
  528. ----- HyperTalk script -----
  529. on mouseDown
  530.   put "Vinyl LP;Vinyl EP;Vinyl 45 rpm;Other" into choices
  531.  
  532.   put the value of 1 into lastItem
  533.   get topLeft of target
  534.  
  535.   get HPopUpMenu(choices, -lastItem, (item 2 of it),(item 1 of it))
  536.  
  537.   if the result is not empty then put the result
  538.  
  539.   if item 1 of it is not empty then
  540.     put item 1 of it into bkgnd fld "format"
  541.     if it is "Other" then
  542.       ask "Enter Record Format"
  543.       if it is not empty then
  544.         put it into bkgnd fld "format"
  545.       end if
  546.     end if
  547.   end if
  548. end mouseDown
  549.  
  550.  
  551. -- part 28 (button)
  552. -- low flags: 00
  553. -- high flags: 2000
  554. -- rect: left=86 top=302 right=333 bottom=128
  555. -- title width / last selected line: 0
  556. -- icon id / first selected line: 0 / 0
  557. -- text alignment: 1
  558. -- font id: 0
  559. -- text size: 12
  560. -- style flags: 0
  561. -- line height: 16
  562. -- part name: CDswitch
  563. ----- HyperTalk script -----
  564. on mouseUp
  565.   goCD
  566. end mouseUp
  567.  
  568.  
  569.  
  570. -- part 29 (button)
  571. -- low flags: 00
  572. -- high flags: 2000
  573. -- rect: left=182 top=302 right=333 bottom=224
  574. -- title width / last selected line: 0
  575. -- icon id / first selected line: 0 / 0
  576. -- text alignment: 1
  577. -- font id: 0
  578. -- text size: 12
  579. -- style flags: 0
  580. -- line height: 16
  581. -- part name: TAPEswitch
  582. ----- HyperTalk script -----
  583. on mouseUp
  584.   goTape
  585. end mouseUp
  586.  
  587.  
  588.  
  589. -- part 30 (button)
  590. -- low flags: 00
  591. -- high flags: 2000
  592. -- rect: left=135 top=302 right=333 bottom=176
  593. -- title width / last selected line: 0
  594. -- icon id / first selected line: 0 / 0
  595. -- text alignment: 1
  596. -- font id: 0
  597. -- text size: 12
  598. -- style flags: 0
  599. -- line height: 16
  600. -- part name: LPdummy
  601. ----- HyperTalk script -----
  602. on mouseUp
  603.   put the number of cards of this background into quant
  604.   put ("AudioVideo Library currently contains " & quant & " sets of Vinyl Records") into message box
  605. end mouseUp
  606.  
  607.  
  608.  
  609. -- part 31 (button)
  610. -- low flags: 00
  611. -- high flags: 2000
  612. -- rect: left=231 top=302 right=333 bottom=272
  613. -- title width / last selected line: 0
  614. -- icon id / first selected line: 0 / 0
  615. -- text alignment: 1
  616. -- font id: 0
  617. -- text size: 12
  618. -- style flags: 0
  619. -- line height: 16
  620. -- part name: VIDEOswitch
  621. ----- HyperTalk script -----
  622. on mouseUp
  623.   goVideo
  624. end mouseUp
  625.  
  626.  
  627.  
  628. -- part 32 (button)
  629. -- low flags: 00
  630. -- high flags: 2000
  631. -- rect: left=470 top=318 right=333 bottom=506
  632. -- title width / last selected line: 0
  633. -- icon id / first selected line: 0 / 0
  634. -- text alignment: 1
  635. -- font id: 0
  636. -- text size: 12
  637. -- style flags: 0
  638. -- line height: 16
  639. -- part name: SkipNext
  640. ----- HyperTalk script -----
  641. on mouseUp
  642.   go to next card of this background
  643. end mouseUp
  644.  
  645.  
  646.  
  647. -- part 33 (button)
  648. -- low flags: 00
  649. -- high flags: 2000
  650. -- rect: left=432 top=318 right=333 bottom=468
  651. -- title width / last selected line: 0
  652. -- icon id / first selected line: 0 / 0
  653. -- text alignment: 1
  654. -- font id: 0
  655. -- text size: 12
  656. -- style flags: 0
  657. -- line height: 16
  658. -- part name: SkipPrev
  659. ----- HyperTalk script -----
  660. on mouseUp
  661.   go to prev card of this background
  662. end mouseUp
  663.  
  664.  
  665.  
  666. -- part 34 (button)
  667. -- low flags: 00
  668. -- high flags: 2000
  669. -- rect: left=6 top=302 right=334 bottom=76
  670. -- title width / last selected line: 0
  671. -- icon id / first selected line: 0 / 0
  672. -- text alignment: 1
  673. -- font id: 0
  674. -- text size: 12
  675. -- style flags: 0
  676. -- line height: 16
  677. -- part name: Power
  678. ----- HyperTalk script -----
  679. on mouseUp
  680.   doPower
  681. end mouseUp
  682.  
  683.  
  684.  
  685. -- part 35 (button)
  686. -- low flags: 00
  687. -- high flags: 2000
  688. -- rect: left=394 top=290 right=305 bottom=430
  689. -- title width / last selected line: 0
  690. -- icon id / first selected line: 0 / 0
  691. -- text alignment: 1
  692. -- font id: 0
  693. -- text size: 12
  694. -- style flags: 0
  695. -- line height: 16
  696. -- part name: Play
  697. ----- HyperTalk script -----
  698. on mouseUp
  699.   doPlay
  700. end mouseUp
  701.  
  702.  
  703.  
  704. -- part 37 (button)
  705. -- low flags: 00
  706. -- high flags: 2000
  707. -- rect: left=318 top=290 right=305 bottom=354
  708. -- title width / last selected line: 0
  709. -- icon id / first selected line: 0 / 0
  710. -- text alignment: 1
  711. -- font id: 0
  712. -- text size: 12
  713. -- style flags: 0
  714. -- line height: 16
  715. -- part name: NewCard
  716. ----- HyperTalk script -----
  717. on mouseUp
  718.   setLP1
  719.   visual effect scroll down
  720.   doMenu New Card
  721.   put "1" into bkgnd fld "numVol"
  722. end mouseUp
  723.  
  724.  
  725.  
  726. -- part 38 (button)
  727. -- low flags: 00
  728. -- high flags: 2000
  729. -- rect: left=280 top=290 right=305 bottom=316
  730. -- title width / last selected line: 0
  731. -- icon id / first selected line: 0 / 0
  732. -- text alignment: 1
  733. -- font id: 0
  734. -- text size: 12
  735. -- style flags: 0
  736. -- line height: 16
  737. -- part name: Delete
  738. ----- HyperTalk script -----
  739. on mouseUp
  740.   doDelete
  741.   go to previous card of background "LP"
  742. end mouseUp
  743.  
  744.  
  745.  
  746. -- part 40 (button)
  747. -- low flags: 00
  748. -- high flags: 2000
  749. -- rect: left=394 top=318 right=333 bottom=430
  750. -- title width / last selected line: 0
  751. -- icon id / first selected line: 0 / 0
  752. -- text alignment: 1
  753. -- font id: 0
  754. -- text size: 12
  755. -- style flags: 0
  756. -- line height: 16
  757. -- part name: ToMaster
  758. ----- HyperTalk script -----
  759. on mouseUp
  760.   doMenu first
  761. end mouseUp
  762.  
  763.  
  764.  
  765. -- part 42 (button)
  766. -- low flags: 00
  767. -- high flags: 2000
  768. -- rect: left=470 top=290 right=305 bottom=506
  769. -- title width / last selected line: 0
  770. -- icon id / first selected line: 0 / 0
  771. -- text alignment: 1
  772. -- font id: 0
  773. -- text size: 12
  774. -- style flags: 0
  775. -- line height: 16
  776. -- part name: Next
  777. ----- HyperTalk script -----
  778. on mouseUp
  779.   doMenu Next
  780. end mouseUp
  781.  
  782.  
  783.  
  784. -- part 43 (button)
  785. -- low flags: 00
  786. -- high flags: 2000
  787. -- rect: left=432 top=290 right=305 bottom=468
  788. -- title width / last selected line: 0
  789. -- icon id / first selected line: 0 / 0
  790. -- text alignment: 1
  791. -- font id: 0
  792. -- text size: 12
  793. -- style flags: 0
  794. -- line height: 16
  795. -- part name: Prev
  796. ----- HyperTalk script -----
  797. on mouseUp
  798.   doMenu Prev
  799. end mouseUp
  800.  
  801.  
  802.  
  803. -- part 44 (field)
  804. -- low flags: 01
  805. -- high flags: 0002
  806. -- rect: left=453 top=25 right=40 bottom=493
  807. -- title width / last selected line: 0
  808. -- icon id / first selected line: 0 / 0
  809. -- text alignment: 1
  810. -- font id: 3
  811. -- text size: 10
  812. -- style flags: 0
  813. -- line height: 13
  814. -- part name: year
  815. ----- HyperTalk script -----
  816. on mouseDown
  817.   chooseYear
  818. end mouseDown
  819.  
  820.  
  821. -- part 45 (button)
  822. -- low flags: 00
  823. -- high flags: 2000
  824. -- rect: left=356 top=290 right=307 bottom=392
  825. -- title width / last selected line: 0
  826. -- icon id / first selected line: 0 / 0
  827. -- text alignment: 1
  828. -- font id: 0
  829. -- text size: 12
  830. -- style flags: 0
  831. -- line height: 16
  832. -- part name: Search
  833. ----- HyperTalk script -----
  834. on mouseUp
  835.   doSearch
  836. end mouseUp
  837.  
  838.  
  839.  
  840. -- part 46 (button)
  841. -- low flags: 00
  842. -- high flags: 2000
  843. -- rect: left=280 top=318 right=333 bottom=316
  844. -- title width / last selected line: 0
  845. -- icon id / first selected line: 0 / 0
  846. -- text alignment: 1
  847. -- font id: 0
  848. -- text size: 12
  849. -- style flags: 0
  850. -- line height: 16
  851. -- part name: PrintCard
  852. ----- HyperTalk script -----
  853. on mouseUp
  854.   doPrint
  855. end mouseUp
  856.  
  857.  
  858.  
  859. -- part 47 (button)
  860. -- low flags: 00
  861. -- high flags: 2000
  862. -- rect: left=356 top=318 right=333 bottom=392
  863. -- title width / last selected line: 0
  864. -- icon id / first selected line: 0 / 0
  865. -- text alignment: 1
  866. -- font id: 0
  867. -- text size: 12
  868. -- style flags: 0
  869. -- line height: 16
  870. -- part name: Sort
  871. ----- HyperTalk script -----
  872. on mouseUp
  873.   push card
  874.   go to first card
  875.   doSort
  876. end mouseUp
  877.  
  878.  
  879.  
  880. -- part 63 (button)
  881. -- low flags: 00
  882. -- high flags: 2000
  883. -- rect: left=318 top=318 right=333 bottom=354
  884. -- title width / last selected line: 0
  885. -- icon id / first selected line: 0 / 0
  886. -- text alignment: 1
  887. -- font id: 0
  888. -- text size: 12
  889. -- style flags: 0
  890. -- line height: 16
  891. -- part name: Help
  892. ----- HyperTalk script -----
  893. on mouseUp
  894.   push card
  895.   go to card "LPhelp" of stack "AudioVideoUtilities"
  896. end mouseUp
  897.  
  898.  
  899.  
  900. -- part 64 (field)
  901. -- low flags: 80
  902. -- high flags: 4002
  903. -- rect: left=9 top=253 right=341 bottom=504
  904. -- title width / last selected line: 0
  905. -- icon id / first selected line: 0 / 0
  906. -- text alignment: 0
  907. -- font id: 3
  908. -- text size: 12
  909. -- style flags: 0
  910. -- line height: 16
  911. -- part name: remarks
  912.  
  913.  
  914. -- part 65 (button)
  915. -- low flags: 00
  916. -- high flags: 2000
  917. -- rect: left=463 top=231 right=251 bottom=503
  918. -- title width / last selected line: 0
  919. -- icon id / first selected line: 0 / 0
  920. -- text alignment: 1
  921. -- font id: 0
  922. -- text size: 12
  923. -- style flags: 0
  924. -- line height: 16
  925. -- part name: copy
  926. ----- HyperTalk script -----
  927. on mouseUp
  928.   doCopyLP
  929. end mouseUp
  930.  
  931.  
  932.  
  933. -- part 66 (button)
  934. -- low flags: 00
  935. -- high flags: 2000
  936. -- rect: left=283 top=27 right=56 bottom=405
  937. -- title width / last selected line: 0
  938. -- icon id / first selected line: 0 / 0
  939. -- text alignment: 1
  940. -- font id: 0
  941. -- text size: 12
  942. -- style flags: 0
  943. -- line height: 16
  944. -- part name: rec label activate
  945. ----- HyperTalk script -----
  946. on mouseDown
  947.   send mouseDown to field "recording label"
  948. end mouseDown
  949.  
  950.  
  951.  
  952. -- part 67 (button)
  953. -- low flags: 00
  954. -- high flags: 2000
  955. -- rect: left=282 top=59 right=73 bottom=405
  956. -- title width / last selected line: 0
  957. -- icon id / first selected line: 0 / 0
  958. -- text alignment: 1
  959. -- font id: 0
  960. -- text size: 12
  961. -- style flags: 0
  962. -- line height: 16
  963. -- part name: num vol activate
  964. ----- HyperTalk script -----
  965. on mouseDown
  966.   send mouseDown to field "numVol"
  967. end mouseDown
  968.  
  969.  
  970.  
  971. -- part 68 (button)
  972. -- low flags: 00
  973. -- high flags: 2000
  974. -- rect: left=426 top=25 right=40 bottom=493
  975. -- title width / last selected line: 0
  976. -- icon id / first selected line: 0 / 0
  977. -- text alignment: 1
  978. -- font id: 0
  979. -- text size: 12
  980. -- style flags: 0
  981. -- line height: 16
  982. -- part name: year activate
  983. ----- HyperTalk script -----
  984. on mouseDown
  985.   send mouseDown to field "year"
  986. end mouseDown
  987.  
  988.  
  989.  
  990. -- part 69 (button)
  991. -- low flags: 00
  992. -- high flags: 2000
  993. -- rect: left=0 top=0 right=15 bottom=227
  994. -- title width / last selected line: 0
  995. -- icon id / first selected line: 0 / 0
  996. -- text alignment: 1
  997. -- font id: 0
  998. -- text size: 12
  999. -- style flags: 0
  1000. -- line height: 16
  1001. -- part name: content class activate
  1002. ----- HyperTalk script -----
  1003. on mouseDown
  1004.   send mouseDown to field "content class"
  1005. end mouseDown
  1006.  
  1007.  
  1008.  
  1009. -- part 70 (button)
  1010. -- low flags: 00
  1011. -- high flags: 2000
  1012. -- rect: left=230 top=0 right=15 bottom=389
  1013. -- title width / last selected line: 0
  1014. -- icon id / first selected line: 0 / 0
  1015. -- text alignment: 1
  1016. -- font id: 0
  1017. -- text size: 12
  1018. -- style flags: 0
  1019. -- line height: 16
  1020. -- part name: format activate
  1021. ----- HyperTalk script -----
  1022. on mouseDown
  1023.   send mouseDown to field "format"
  1024. end mouseDown
  1025.  
  1026.  
  1027.  
  1028. -- part 71 (button)
  1029. -- low flags: 00
  1030. -- high flags: 0000
  1031. -- rect: left=95 top=26 right=40 bottom=188
  1032. -- title width / last selected line: 0
  1033. -- icon id / first selected line: 0 / 0
  1034. -- text alignment: 1
  1035. -- font id: 0
  1036. -- text size: 12
  1037. -- style flags: 0
  1038. -- line height: 16
  1039. -- part name: artist user entry
  1040. ----- HyperTalk script -----
  1041. on mouseDown
  1042.   fieldMsg
  1043. end mouseDown
  1044.  
  1045.  
  1046.  
  1047. -- part 72 (button)
  1048. -- low flags: 00
  1049. -- high flags: 0000
  1050. -- rect: left=96 top=56 right=70 bottom=189
  1051. -- title width / last selected line: 0
  1052. -- icon id / first selected line: 0 / 0
  1053. -- text alignment: 1
  1054. -- font id: 0
  1055. -- text size: 12
  1056. -- style flags: 0
  1057. -- line height: 16
  1058. -- part name: user entry
  1059. ----- HyperTalk script -----
  1060. on mouseDown
  1061.   fieldMsg
  1062. end mouseDown
  1063.  
  1064.  
  1065.  
  1066. -- part 73 (button)
  1067. -- low flags: 00
  1068. -- high flags: 0000
  1069. -- rect: left=97 top=84 right=98 bottom=190
  1070. -- title width / last selected line: 0
  1071. -- icon id / first selected line: 0 / 0
  1072. -- text alignment: 1
  1073. -- font id: 0
  1074. -- text size: 12
  1075. -- style flags: 0
  1076. -- line height: 16
  1077. -- part name: user entry
  1078. ----- HyperTalk script -----
  1079. on mouseDown
  1080.   fieldMsg
  1081. end mouseDown
  1082.  
  1083.  
  1084.  
  1085. -- part 74 (button)
  1086. -- low flags: 00
  1087. -- high flags: 0000
  1088. -- rect: left=58 top=127 right=141 bottom=357
  1089. -- title width / last selected line: 0
  1090. -- icon id / first selected line: 0 / 0
  1091. -- text alignment: 1
  1092. -- font id: 0
  1093. -- text size: 12
  1094. -- style flags: 0
  1095. -- line height: 16
  1096. -- part name: user entry
  1097. ----- HyperTalk script -----
  1098. on mouseDown
  1099.   fieldMsg
  1100. end mouseDown
  1101.  
  1102.  
  1103.  
  1104. -- part 75 (button)
  1105. -- low flags: 00
  1106. -- high flags: 0000
  1107. -- rect: left=392 top=0 right=16 bottom=434
  1108. -- title width / last selected line: 0
  1109. -- icon id / first selected line: 0 / 0
  1110. -- text alignment: 1
  1111. -- font id: 0
  1112. -- text size: 12
  1113. -- style flags: 0
  1114. -- line height: 16
  1115. -- part name: user entry
  1116. ----- HyperTalk script -----
  1117. on mouseDown
  1118.   fieldMsg
  1119. end mouseDown
  1120.  
  1121.